function [SqDiff,Mom_Model]=SubFun_Calibration_Eval(PP,SS,MODEL,EquJac,Info,Param)

IRF     =   SubFun_Param2IRF(PP,SS,MODEL,EquJac,Info,Param);
if isempty(IRF)
    SqDiff  =   Inf;
else
    Mom_Model   =   SubFun_IRF2Mom(PP,SS,MODEL,IRF);
    Diff        =   Mom_Model-Info.Mom_Data;
    Diff        =   Info.Weight.*Diff;
    SqDiff      =   Diff'*Diff;
                     
end